Form Shaper

With this ocx you can shape your form as you like giving circular shape or rectangular shape, also using Image2Bas generator you can give the shape you like starting from an image.

Usage : Simply copy the sample source included for the elliptic and square methods.

When use the PoliLine method remember to include the Bas file generated (Image2Bas add to the name you give for the file "_n" ecc...Pay attention to remove and include again each time you generate .bas file because VB don't do this.

Obviously you must fill the data calling the FillData+n function included in the .bas file.

N.B.: If you experience troubling making the exe file with VB5 try to set the Compile in P-Code option in the project properties.

Anyway feel free to write me:

pietrob@mv.itline.it

Properties:

    ShiftX,ShiftY : Adjust the position of the shaped form.

Events :

    No events generated

Methods :

    EllipTic(TargethWnd As Long, LeftRect As Long, TopRect As Long, RightRect As Long, BottomRect As Long) As Variant

• TargethWnd         Handle of the object to shape (Buttons ,PictureBox,Forms,Apps,ecc...)
• LeftRect                 Left margin
• TopRect                 Top margin
• RightRect                X Axis of ellipse
• BottomRect           Y Axis of ellipse

PoliLine(TargethWnd As Long, Polidata() As Long, NumPoints As Long) As Variant

• TargethWnd         Handle of the object to shape (Buttons ,PictureBox,Forms,Apps,ecc...)
• Polidata()             Put "D" as the example shows
• NumPoints           Put "NumDataPoints" as the example shows

ShowAbout()

• Show the About window

Square(TargethWnd As Long, LeftRect As Long, TopRect As Long, RightRect As Long, BottomRect As Long) As Variant

• TargethWnd         Handle of the object to shape (Buttons ,PictureBox,Forms,Apps,ecc...)
• LeftRect                 Left margin
• TopRect                 Top margin
• RightRect                X Axis of ellipse
• BottomRect           Y Axis of ellipse